<?php
//
// +----------------------------------------------------------------------+
// | PHP Version 4                                                        |
// +----------------------------------------------------------------------+
// | Copyright (c) 1997-2002 The PHP Group                                |
// +----------------------------------------------------------------------+
// | This source file is subject toversion 3.0 of the PHP license,      |
// | that is bundled with this package in the file LICENSE, and is        |
// | available at through the world-wide-web at                           |
// | http://www.php.net/license/3_0.txt.                                  |
// | If you did not receive a copy of the PHP license and are unable to   |
// | obtain it through the world-wide-web, please send a note to          |
// | license@php.net so we can mail you a copy immediately.               |
// +----------------------------------------------------------------------+
// | Authors: Alexander Zhukov <alex@veresk.ru> Original port from Python |
// | Authors: Harry Fuecks <hfuecks@phppatterns.com> Port to PEAR + more  |
// | Authors: Many @ Sitepointforums Advanced PHP Forums                  |
// +----------------------------------------------------------------------+
//
// $Id: States.php,v 1.3 2007/10/29 21:41:35 hfuecks Exp $
//
/**
 * Parsing states.
 * @package XML_HTMLSax3
 * @version $Id: States.php,v 1.3 2007/10/29 21:41:35 hfuecks Exp $
 */
/**
 * Define parser states
 */
define('XML_HTMLSAX3_STATE_STOP', 0);
define('XML_HTMLSAX3_STATE_START', 1);
define('XML_HTMLSAX3_STATE_TAG', 2);
define('XML_HTMLSAX3_STATE_OPENING_TAG', 3);
define('XML_HTMLSAX3_STATE_CLOSING_TAG', 4);
define('XML_HTMLSAX3_STATE_ESCAPE', 6);
define('XML_HTMLSAX3_STATE_JASP', 7);
define('XML_HTMLSAX3_STATE_PI', 8);
/**
 * StartingState searches for the start of any XML tag
 * @package XML_HTMLSax3
 * @access protected
 */
class XML_HTMLSax3_StartingState  {
	/**
	 * @param XML_HTMLSax3_StateParser subclass
	 * @return constant XML_HTMLSAX3_STATE_TAG
	 * @access protected
	 */
	function parse(&$context) {
		$data = $context->scanUntilString('<');
		if ($data != '') {
			$context->handler_object_data->
			{$context->handler_method_data}($context->htmlsax, $data);
		}
		$context->IgnoreCharacter();
		return XML_HTMLSAX3_STATE_TAG;
	}
}
/**
 * Decides which state to move one from after StartingState
 * @package XML_HTMLSax3
 * @access protected
 */
class XML_HTMLSax3_TagState {
	/**
	 * @param XML_HTMLSax3_StateParser subclass
	 * @return constant the next state to move into
	 * @access protected
	 */
	function parse(&$context) {
		switch($context->ScanCharacter()) {
			case '/':
				return XML_HTMLSAX3_STATE_CLOSING_TAG;
				break;
			case '?':
				return XML_HTMLSAX3_STATE_PI;
				break;
			case '%':
				return XML_HTMLSAX3_STATE_JASP;
				break;
			case '!':
				return XML_HTMLSAX3_STATE_ESCAPE;
				break;
			default:
				$context->unscanCharacter();
				return XML_HTMLSAX3_STATE_OPENING_TAG;
		}
	}
}
/**
 * Dealing with closing XML tags
 * @package XML_HTMLSax3
 * @access protected
 */
class XML_HTMLSax3_ClosingTagState {
	/**
	 * @param XML_HTMLSax3_StateParser subclass
	 * @return constant XML_HTMLSAX3_STATE_START
	 * @access protected
	 */
	function parse(&$context) {
		$tag = $context->scanUntilCharacters('/>');
		if ($tag != '') {
			$char = $context->scanCharacter();
			if ($char == '/') {
				$char = $context->scanCharacter();
				if ($char != '>') {
					$context->unscanCharacter();
				}
			}
			$context->handler_object_element->
			{$context->handler_method_closing}($context->htmlsax, $tag, FALSE);
		}
		return XML_HTMLSAX3_STATE_START;
	}
}
/**
 * Dealing with opening XML tags
 * @package XML_HTMLSax3
 * @access protected
 */
class XML_HTMLSax3_OpeningTagState {
	/**
	 * Handles attributes
	 * @param string attribute name
	 * @param string attribute value
	 * @return void
	 * @access protected
	 * @see XML_HTMLSax3_AttributeStartState
	 */
	function parseAttributes(&$context) {
		$Attributes = array();

		$context->ignoreWhitespace();
		$attributename = $context->scanUntilCharacters("=/> \n\r\t");
		while ($attributename != '') {
			$attributevalue = NULL;
			$context->ignoreWhitespace();
			$char = $context->scanCharacter();
			if ($char == '=') {
				$context->ignoreWhitespace();
				$char = $context->ScanCharacter();
				if ($char == '"') {
					$attributevalue= $context->scanUntilString('"');
					$context->IgnoreCharacter();
				} else if ($char == "'") {
					$attributevalue = $context->scanUntilString("'");
					$context->IgnoreCharacter();
				} else {
					$context->unscanCharacter();
					$attributevalue =
					$context->scanUntilCharacters("> \n\r\t");
				}
			} else if ($char !== NULL) {
				$attributevalue = NULL;
				$context->unscanCharacter();
			}
			$Attributes[$attributename] = $attributevalue;

			$context->ignoreWhitespace();
			$attributename = $context->scanUntilCharacters("=/> \n\r\t");
		}
		return $Attributes;
	}

	/**
	 * @param XML_HTMLSax3_StateParser subclass
	 * @return constant XML_HTMLSAX3_STATE_START
	 * @access protected
	 */
	function parse(&$context) {
		$tag = $context->scanUntilCharacters("/> \n\r\t");
		if ($tag != '') {
			$this->attrs = array();
			$Attributes = $this->parseAttributes($context);
			$char = $context->scanCharacter();
			if ($char == '/') {
				$char = $context->scanCharacter();
				if ($char != '>') {
					$context->unscanCharacter();
				}
				$context->handler_object_element->
				{$context->handler_method_opening}($context->htmlsax, $tag,
				$Attributes, TRUE);
				$context->handler_object_element->
				{$context->handler_method_closing}($context->htmlsax, $tag,
				TRUE);
			} else {
				$context->handler_object_element->
				{$context->handler_method_opening}($context->htmlsax, $tag,
				$Attributes, FALSE);
			}
		}
		return XML_HTMLSAX3_STATE_START;
	}
}

/**
 * Deals with XML escapes handling comments and CDATA correctly
 * @package XML_HTMLSax3
 * @access protected
 */
class XML_HTMLSax3_EscapeState {
	/**
	 * @param XML_HTMLSax3_StateParser subclass
	 * @return constant XML_HTMLSAX3_STATE_START
	 * @access protected
	 */
	function parse(&$context) {
		$char = $context->ScanCharacter();
		if ($char == '-') {
			$char = $context->ScanCharacter();
			if ($char == '-') {
				$context->unscanCharacter();
				$context->unscanCharacter();
				$text = $context->scanUntilString('-->');
				$text .= $context->scanCharacter();
				$text .= $context->scanCharacter();
			} else {
				$context->unscanCharacter();
				$text = $context->scanUntilString('>');
			}
		} else if ( $char == '[') {
			$context->unscanCharacter();
			$text = $context->scanUntilString(']>');
			$text.= $context->scanCharacter();
		} else {
			$context->unscanCharacter();
			$text = $context->scanUntilString('>');
		}

		$context->IgnoreCharacter();
		if ($text != '') {
			$context->handler_object_escape->
			{$context->handler_method_escape}($context->htmlsax, $text);
		}
		return XML_HTMLSAX3_STATE_START;
	}
}
/**
 * Deals with JASP/ASP markup
 * @package XML_HTMLSax3
 * @access protected
 */
class XML_HTMLSax3_JaspState {
	/**
	 * @param XML_HTMLSax3_StateParser subclass
	 * @return constant XML_HTMLSAX3_STATE_START
	 * @access protected
	 */
	function parse(&$context) {
		$text = $context->scanUntilString('%>');
		if ($text != '') {
			$context->handler_object_jasp->
			{$context->handler_method_jasp}($context->htmlsax, $text);
		}
		$context->IgnoreCharacter();
		$context->IgnoreCharacter();
		return XML_HTMLSAX3_STATE_START;
	}
}
/**
 * Deals with XML processing instructions
 * @package XML_HTMLSax3
 * @access protected
 */
class XML_HTMLSax3_PiState {
	/**
	 * @param XML_HTMLSax3_StateParser subclass
	 * @return constant XML_HTMLSAX3_STATE_START
	 * @access protected
	 */
	function parse(&$context) {
		$target = $context->scanUntilCharacters(" \n\r\t");
		$data = $context->scanUntilString('?>');
		if ($data != '') {
			$context->handler_object_pi->
			{$context->handler_method_pi}($context->htmlsax, $target, $data);
		}
		$context->IgnoreCharacter();
		$context->IgnoreCharacter();
		return XML_HTMLSAX3_STATE_START;
	}
}


